home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / pcw271a.arc / PCWMOUSE.DEF < prev    next >
Encoding:
Text File  |  1986-10-01  |  2.5 KB  |  70 lines
  1.  
  2. ;              * * * Microsoft Mouse Menu Program for PC-Write * * *
  3.  
  4. ;               modified by Diana Sill for Version 2.7, October 1986 
  5. ;                          (special thanks to Tom Bowden)
  6.  
  7. BEGIN lftbtn,rtbtn,btbtn,lfmtn,rtmtn,upmtn,dnmtn,40,28
  8.  
  9. ;LEFT BUTTON OPTIONS:
  10. lftbtn: MATCH 1,15,,"MARKED",keyf5,lftbtn2        ;if MARKED, clear marking 
  11. lftbtn2: MATCH 1,15,,"Marking",keyf3,lftbtn3      ;if Marking, freeze to MARKED
  12. lftbtn3: MATCH 1,1,,"Esc:Menu",keyf3,lftbtn4      ;turn on marking
  13. lftbtn4: MATCH 1,1,,"Esc:cancel",choose,lftbtn5   ;at main menu, act as ENTER 
  14. lftbtn5: MATCH 1,1,,"Esc ",choose,lftbtn6         ;at submenus, act as ENTER
  15. lftbtn6: MATCH 1,1,,"Search",choose,lftbtn7       ;at dir prompt, act as ENTER
  16. lftbtn7: MATCH 1,1,,"File",choose,lftbtn8         ;at file prompt, act as ENTER
  17. lftbtn8: MATCH 1,1,,"Waiting",choose,lftbtn9      ;at print menu, act as ENTER
  18. lftbtn9: MATCH 1,1,,"Esc:Exit",keyf10,nul         ;at print prompt, as as F10
  19. choose: EXECUTE keyenter
  20. nul: NOTHING
  21.  
  22. ;RIGHT BUTTON OPTIONS:
  23. rtbtn: EXECUTE keyesc                       ;right button always acts as Esc key
  24.  
  25. ;BOTH BUTTONS OPTIONS:
  26. btbtn:  EXECUTE gethelp
  27. gethelp: MATCH 1,5,,"Menu",help1,gethelp2     ;while editing, get help screen
  28. help1: EXECUTE keyesc,keyf1,keyf1
  29. gethelp2: MATCH 1,5,,"can",help2,gethelp3     ;at main menu, get help screen
  30. help2: EXECUTE keyf1,keyf1
  31. gethelp3: MATCH 1,5,,"F",help3,gethelp4       ;at submenus, get help screen
  32. help3: EXECUTE keyf1
  33. gethelp4: MATCH 1,6,,"Help off",helpoff,other ;at help screen, return to editing
  34. helpoff: EXECUTE keyf1
  35. other: EXECUTE keyf1                          ;at prompts, get help screen
  36.  
  37. ;LEFT MOTION: 
  38. lfmtn: MATCH 1,5,,"Me",lfmtn2,lfmtn3 
  39. lfmtn2: EXECUTE hsen,lf                       ;high sensitivity for Edit screen
  40. lfmtn3: EXECUTE lsen,lf                       ;low sensitivity for Menus
  41. ;RIGHT MOTION: 
  42. rtmtn: MATCH 1,5,,"Me",rtmtn2,rtmtn3 
  43. rtmtn2: EXECUTE hsen,rt 
  44. rtmtn3: EXECUTE lsen,rt 
  45. ;UP MOTION: 
  46. upmtn: MATCH 1,5,,"Me",upmtn2,upmtn3 
  47. upmtn2: EXECUTE hsen,up 
  48. upmtn3: EXECUTE lsen,up 
  49. ;DOWN MOTION: 
  50. dnmtn: MATCH 1,5,,"Me",dnmtn2,dnmtn3 
  51. dnmtn2: EXECUTE hsen,dn 
  52. dnmtn3: EXECUTE lsen,dn 
  53.  
  54. ;CURSOR MOVEMENT:
  55. lf:   TYPE 0,75
  56. rt:   TYPE 0,77
  57. up:   TYPE 0,72
  58. dn:   TYPE 0,80
  59. ;SENSITIVITY:
  60. hsen: assign ,,,,,,,4,8
  61. lsen: assign ,,,,,,,40,28
  62. ;KEY DEFINITIONS:
  63. keyesc: TYPE esc
  64. keyenter: TYPE enter
  65. keyf1: TYPE 0,59
  66. keyf3: TYPE 0,61
  67. keyf5: TYPE 0,63
  68. keyf10: TYPE 0,68
  69.  
  70.